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T YSCAN - SYSTEM SERV AN HA 
Lf $ BANC SYSTEM SERVICE CANCEL I/0 ON CHANNEL 
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ARR RARRAAARARALEAASALSALE LALLA SESE EERE SESE SESE EEE SEES SESS EERE SET aa 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH MATS AND wire Me 


oT 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eoRPORATi on NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO oto 


BI 
SOFTWARE ON EQUIPMENT WHICH I 


ITY FOR THE USE OR RELIABILITY OF ITS 


IBIL 
H IS NOT SUPPLIED BY DIGITAL. 


TPP PPPS PSST irri iii iii tii titi iiiiiiiiiiiiiiiiiiiiiiiiiiiiii ttt) 
D. N. CUTLER 4-AUG-77 

SYSTEM SERVICE CANCEL 1/0 ON CHANNEL 
MODIFIED BY: 


v03-005 CDS0001 Christian D. Saether 20-July-1984 
Don't do the acpcontrol function for disk devices. 

v03-004 LMP0251 L. Mark Pilant, 9-May-1984 12:48 
Correct a bug in WMC0001 so that the correct base register 
is used to lock down the CCB. 

v03-003 wMC0001 Wayne Cardoza 16-Apr-1984 
Don't touch CCB above IPL 2. 

V03-002 ROW0136 Ralph 0. Weber 


25-OCT-1982 
Change event flag number in hand crafted IOS_ACPCONTROL IRP 
from #31 to MEXESC_SYSEFN, it symbolic equivalent. 


v03-001 KoM0002 Kathleen D. Morse 28-Jun-1982 
Added $SSDEF. 


MACRO LIBRARY CALLS 


OND 
ANC 


SCADEF iD IT 
SCANDEF iD EL REASON CODES 


IONAL ASSEMBLY PARAMETERS 
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LOCAL SYMBOLS 


ARGUMENT LIST OFFSET DEFINITIONS 


;NUMBER OF ARGUMENTS PASSED 


31/0 CHANNEL NUMBER 
SPECIAL CANCEL CODE 
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EXESCANCEL = CANCEL 1/0 ON CHANNEL 
EXESCANCELN = CANCEL 1/0 ON CHANNEL WITH REASON CODE 


THIS SERVICE CANCELS ALL 1/0 ISSUED TO A DEVICE FROM THE SPECIFIED CHANNEL. 
INPUTS: 
CODE(AP) = REASON CODE FOR CANCEL CALL ( 
CHAN(AP) = NUMBER OF THE I/0 CHANNEL TO 
NARG(AP) = NUMBER OF ARGUMENTS PASSED ( 
R4 = CURRENT PROCESS PCB ADDRESS. 
OUTPUTS: 
RO LOW BIT CLEAR INDICATES FAILURE TO CANCEL 1/0. 


SS$_EXQUOTA = DIRECT 1/0 QUOTA EXCEEDED WHILE TRYING TO 
CANCEL FILE 1/0. 


Oe ee et hi MEMORY AVAILABLE TO ALLOCATE 1/0 


SYSCANCEL = SYSTEM SERVI 
v04-000 


cE 
CANCEL 1/0 ON CH 


SSS_IVCHAN = INVALID CHANNEL NUMBER SPECIFIED. 
SS$_NOPRIV = SPECIFIED CHANNEL IS NOT ASSIGNED TO A DEVI 
OR THE CALLER DOES NOT HAVE SUFFICIENT PRIVILEGE 
ACCESS THE CHANNEL. 
RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 


SS$_NORMAL = NORMAL COMPLETION. 


CE 
TO 


-ENABL LSB 

- ENTRY FRESCAUCELS ,“D<Re ASMA AS MO AY AED 

ASSUME CANSC_CANCEL EQ 

CLRL R8 ASSUME NO REASON CODE 


We do not check access to argument List here - since this is a 
VMS internal entry point. 


i 

0 CMPB amma ;REASON CODE GIVEN? 

1 BNEQ EQ = NO REASON CODE 

§ MOVL EROE CAP) LAS 
BRB $ 
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:1F UN 
ELSE, GET REASON CODE 
JOIN COMMON CODE 


R3,R4,R5,R6,R7,RB> 


s;NEVER A REASON CODE FOR OLD CANCEL 
;GET 1/0 yan NUMBER 


-ENTRY EXESCANCEL , “M<R2 
ASSUME CANSC. CANCEL Ea 6 


5$: MOVZWL CHAN(AP),RO 

10c$ ERIFYCHAN :VERI 
RO, 5 : 
R2,R 3 SAVE 
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sonso0e CANCEL 1/0 ON. FAMINE” a oo eu EP-1984 84:25:98 YOYS SRCISYSCANCEL MARS 1 ° 3 Tab 
M R1,R6 :SAVE ADDRESS OF CCB 
28 3) pe é 128 MOVE CCBSL_UCB(R6) RS [GET ASSIGNED DEVICE UCB ADDRESS 
$ dC 144 10$ MOVPSL =(SP) SSAVE CURRENT PROCESSOR STATUS 
B 145 SETIPL #1PLS_ASTDEL SRAISE TO AST DELIVERY LEVEL 
E 146 ASSUME CCBSK“LENGTH EQ 16 sMAKE SURE CCB IS PAGE ALIGNED 
7E OA 14 OVW CCBSW"IOC(R6),-(SP) iE NEED A SPOT FOR IPL = SAFE AT IPL 2 | 
mA AS Bs Sait, Pes nena eee rcdRh Neg wey Yay bet fe 
OA Ab BE 80 B 130 Ov (SP) +; CCBSW_10C(R6) :ANY 1/0 OUTSTANDING? = RESTORE CCB | 
53 4C A 5 i} 12 BOVAB uces IOQFL(RS) ,R3 [GET ADDRESS OF 1/0 QUEUE LISTHEAD 
7 06 45 1 j MOVL R Ro SCOPY ADDRESS OF 1/0 QUEUE LISTHEAD 
D 43 18% 20$:  -MOVL RPS! _1OQFL(R2) .R2 SGET ADDRESS OF NEXT I/O PACKET IN QUEUE | 
ee et a eg ge 
F3 2A A2 de £0 36 133 BBS #IRPS$V_VIRTUAL, IRPSW stsiae) 208 “IF SET, VIRTUAL 1/0 REQUEST 
60 AS OC A201 09 138 CPL JRPSL_PIDCR s CBSL_PID(R4) jPROCESS 1D MATCH? 
28 A2 gS Af bee 160 cMPW R/ , IRPSU_CHAN(R2) 1/0 CHANNEL NUMBER MATCH? 
52 04 fs 6 065 1 MOVL = IRPS$L_IOQBL(R2),R2 ‘GET BACKWARD LINK OF CURRENT ENTRY 
51 00 a5 OF ie 188 REMQUE @IRP$C_IOQFL(R2) ,R1 jREMOVE 1/0 PACKET FROM QUEUE 
04 2A a1 00 £1 006A 164 BBC #IRPSV~BUF IO, IRP$W_STS(R1),30$ ;IF CLR, DIRECT 1/0 REQUEST 
* Mo BF A HERE 1G sos: Altay FEEESCAMCECItpt-Se incon “SEET EOF anus 
38 Al i” : . 
' P QFL(R1),a@*IOC$GL_PSBL ; INSERT PACKET IN POST PROCESS QUEUE 
en eS ao7e 188 AOR Tint aye ~{OPOST SINITIATE SOFTWARE INTERRUPT 
cS (1 a8} 169 BRB 20$ ; 
171 40$: MOVZWL S“*#SS$_NORMAL,RO 7SET NORMAL COMPLETION STATUS 
nS 0083 178 50$: SETIPL #0 = sALLOW INTERRUPTS 
04 OBA «Ph 
50 0088 CS DO OOBA 175 70$: MOVL UCBSL_DDT(RS) .RO :GET ADDRESS OF DDT 
RP(R5)=R :GET CURRENT 1/0 PACKET ADDRESS 
so Rae i BE WA SET CURRER T7o0E 
096 138 : WARNING = Some drivers do a RET from the driver CANCEL I/0 ROUTINE, in error 
830 199 ; cases. 
; @DDT$L_CANCEL (RO) :CALL CANCEL 1/0 ROUTINE 
01 86 as ‘1 099 chs YEBSB_BEVCLASS(R5) , #OCS DISK 318 as DISK? 
E ; 
(R6) ,RO ‘GET OUTSTANDING 1/0 COUN 
6 be 3 cs ns i ‘ita EC Yad tND CROs 0 i OUTSTANDING 1/0 OR FILE ACTIVITY? 
DA A : 
#DEVSV_MNT,UCBSL_DEVCHAR(R 0s TIF CLR, DEVICE DISMOUNTED 
8 Hy Ae ia ES ry : 3 Bes SDEVSV-FOR UCBSt-DEVCHAR(RS) 40$ :1F SET. MOUNTED FOREIGN 
50 04 Ab bf B 190 BICL3 #1, CCBSL_WIND(R6),RO  ;FILE ACCESSED OR PROCESS SECTION? 
9 e 191 BGTR 408 ¥ TIF GTR PROCESS SECTION 
5 13 A 19 BEQL 80% “IF FOL NO FILE ACCESSED 
(2 0B AO «(02~—=«C«#€E*O C 138 BBS aucasy NOTFCP,WCBSB_ACCESS(RO).40$ ;1F SET, NOT ACP ACCESS 
2. = 1 194 80$: MOVZWL #SS$ ERQUOTA,A1 3SET EXCEEDED QUOTA STATUS 
25 01 4 195 MOVZWL #RSNS_ASTWAIT,RO [SET AST WAIT RESOURCE WAIT NUMBER 
3A AG 65 7 198 nt PCBSW~BIOCNT(R4) BUFFERED, 1/0 QUOTA EXCEEDED? | 
51 C4 af 9A ¢ 198 MOVZBL #IRPSC_LENGTH,R1 [SET LENGTH OF 1/0 PACKET | 
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Symbol table -SEP- 249:1 SYS.SRCISYSCANCEL.MAR;1 (1) 
CANSC_CANCEL = 9 UCBSL_IRP = 58 
CCBSK “LENGTH = UCBSL_VCB = 4 
cc “UCB = VCBSW_TRANS = C 
CCBSL~ WIND = 4 WCBSB_ACCESS = 8 
Ces 10¢ = A WCBSV_NOTFCP = 
= 
; ; 
DDTSL CANCEL = 
DEVSV_F = 
DEVS chat = 1 
DYNSC_IRP = OA 
EXE SACONONPAGED eteeeeee =X 1 
EXES tite RG 1 
EKESCANCECN 0000000 RG 1 
EXESC_SYSEFN eketeene x 4 
EXESQTOACPPKT eeeeenee =X 1 
10$ so = 00000038 
IOCSGL_PSBL eereeeee x 4 
10C$ SVERIFYCHAN eeeerere =X 1 
IPL$_ASTDEL = 00000002 
IPL$- 1OPOST = 00000004 
IRP$C_LENGTH = 44-6454 
IRP$L_ARB = 00000058 
IRP$L_1OQBL = 00000004 
IRPS$L_IOQFL = 0000 st 
IRPSL_MEDIA = 000000 
IRP$L_PID = 0000000C 
IRPSM_BUF 10 = 44 64 
IRPSM~FUNC = 00000002 
Arey UFIO = 000 88 
IRP$V_VIRTUAL = 88 004 
IRPSW_CHAN = 00 028 
IRP$W_SIZE = 000 8 
IRPSW_STS = 000 A 
NARG = 00000000 
PCBSB_PRIB = 944 F 
CBSL-A a 88 f 
PCBSL_PID = 
PCBSL_STS = 4 
PCBSU-SSRWAIT = 3 A 
PCB$W_ BI = A 
PMSSSTART eeereeee§ =X OT 
PR$_IPL = 8 \ 
P SIRR = 1 
RSNS_ASTWAIT = 3 4 
RSN$_NPDYNMEM = 3 
SCHSRWAIT teeerane x 01 
SS$_CANC = 00 30 
SS$_EXQUOTA = 1¢ 
$s$_ ly = $7 
“NOR = 1 
uce$e  DEVCLASS = 40 
uCB$B_ FIPL = 
UCBSL~ DDT = 
UCB SL eee = 
UCBS$L—I00FL = 4C 


SYSCANCEL 
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! Psect synopsis ! 


oS 


PSECT name Allocation PSECT No. Attributes 
ABS 0000000 ( Q. 0 ( 9.) NOPIC USR CON ABS ~ LCL NOSHR NOEXE 
. BLANK . 4 1 . Diet 1 ( -) NOPIC USR CON REL LCL NOSHR’- EXE 
$$ 0000000 ( 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL N EXE 
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! Performance indicators ! 


terse eww meee wwe tore mums $ 


CPU Time Elapsed Time 


Page faults 


Initialization 30 0:00:00. 00: 0: .0 
Command processing 111 0:00:00. :00:05.1 
Pass 489 0:00:19.4 :01:01.39 
pysbol table sort B Hf 3°3 + $3} 1 
Syabol table output $08; 6:3 0:00: ¢ 
Psect synopsis output 0:00:00.0 0:00:00. 
ppeperel teranas output 8 Q: 4 Ses Bef 
Assembler run totals 70 00:00:26.4 0:01:30.0 


The 8 yorking set Limit was 1500 pages. 
7 bytes (216 pages) of virtual memory were used to buffer the intermediate code. 
os were 120 pages of symbol table space allocated to hold 2259 non-local and 11 Local symbols. 
24) source Lines were read in Pass 1, producing 18 object records in Pass 2. 
28 pages of virtual memory were used to define 27 macros. 
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Macro Library name 


-$255$DUA28: hve, -OBJJLIB.MLB;1 eet 
“$255$DUA28: SYSLIBISTARLET. MLB; 2 y 
TOTALS (all libraries) 24 


2393 GETS were required to define 24 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SYSCANCEL/OBJ=OB/$:SYSCANCEL MSRC$:SYSCANCEL/UPDATE=(ENH$:SYSCANCEL) +EXECML$/LIB 
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NORD a! pod $: BYTE 
RD WRT NOVEC 


BYTE 
URT NOVEC BYTE 
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